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INTRODUCTION 

The purpose of this manual is to provide the user familiarity with the 
capabilities of the System/3 Query Facility and define the means by 
which a functioning system may be created. Described in detail are 
the Facility as a system, the operational aspects of the Facility, and 
a definition of each of the command statements that may be used to 
write a query. The necessary functions to tailor the programs to gen- 
erate the system are enumerated. For information on how to modify 
the Facility to execute on a System/ 3 Model 6, refer to the Systems 
Guide. 



SYSTEM OVERVIEW 



The System/3 Query Facility is a tool that allows the user, programmer, 
and non-programmer alike to selectively access disk data files for prepar- 
ing reports or gathering statistics. By using the functions provided in 
four simple commands and the functions of the System/3 Disk Sort, the user 
can rapidly formulate queries to the system and receive responses in the 
form of printed output without expending time and effort for writing and 
testing programs. 



System Description 

The System/3 Query Facility is comprised of two programs written in RPG II 
Input to the first program is the 'SELECT' and 'SORT' commands. This pro- 
gram translates these statements into control statements that are compatible 

with the System/3 disk sort. 

upon processing these control statements, the sort utility then produces 
an output file of U^e records the user has selected, placing them in the 
defined sequence. This file then becomes input to the second program of 
the facility which processes the data and produces a report according to 
the definitions established by the 'PRINT' and 'COUNT' commands. Figure 4 
presents sajTiples of the control statements; Figure 5 illustrates how a 
query might be written and the resulting report. 

The commands are designed to give a great deal of function to the user and 
demand little concern for rigid formatting. They are written in a manner 
that conveys meaning to the writer of a query, making a request simple and 
direct, and provides results in a minimum of time. 

Programming Systems 

The programs were written and tested under RPG II (5702-RGl, Version 5 
Modification Level 0) for the System/3 Model 10 (disk). Instructions are 
provided for adaptation to a System/3 Model 6. In addition to the RPG II 
compiler, tlie Disk Sort Program (5702-SMl) is required. 

System Configuration 

The object programs require 9216 bytes of memory. With a normal size core- 
resident system control program (approximately 3K bytes) a 12K central 
processor is required. The programs will execute on an otherwise minimum 
System/3 Model 10 disk configuration. Sufficient disk space should be 
available for sort work areas and output areas. 



PROGRAM DESCRIPTIONS 

The System/3 Query Facility is comprised of two RPG II programs. These two 
programs, m conjunction with the Disk Sort Program, process Que^ry Facility 
commands which result in a printed report containing the information selected 
and sequenced by the user's commands. A discussion of the individual pro- 
grams follows. (For a discussion of commands and their formats refer to 
page 11 ) . 

Program A NBQl, the Sort Specification Generator 

This program processes the user's 'SELECT' and 'SOKr' statements. The 
SELECT' statement is optional; the 'SORT' statement is required. The 
order in which the two statements are input to the program is not import- 
ant. Figure 1 illustrates the execution of program ANBOl. 

The OCL and data required for execution is: 

// LOAD ANBOl, Fl 
// RUN 

2^^^^ (optional) 

(2nd card of 'SELECT' statement is optional) 

SORT 

/* 

The OCL and data are placed in MFCUl . Blank cards should be placed in 
MFCU2 for punching the output cards. No printed output is produced. 

The punched output consists of System/3 sort specifications which are 
supplied as input to the sort phase. (See the section "Operations In- 
structions") . 

The following limitations are placed on the "SELECT" and "SORT" statements: 

a. The 'SELECT' statement may span only two cards. 

b. A maximum of 10 "SELECT" relationships may be specified in the 
"SELECT" statement. 

c. A maximum of 10 data element names may be specified in the 'SORT' 
statement. 

If reqviirements are such that these limits must be exceeded, this must 
be planned for at generation time. Instructions for modification are 
included on page 20. 
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;ystein/3 Query Facility Phase III 



Intermediate; Disk Sort Phase 

upon completion of program ANBOl, the punched output is removed from 
Stacker 4 of the MFCU and placed directly behind the following OCL* in 
MFCUl : 

// LOAD $IiSORT, Fl 

// FILE NAME-INPUT, UNIT-uu, PACK-pppppp, LABEL-1 1 

// FILE Ni^-WORK, UNIT-uu, PACK-pppppp, TRACKS-nnn, RETAIN-S 

// FILE NAME-OUTPUT, UNIT-uu, PACK-pppppp, TRACKS-nnn, RETAIN-T, LABEL-S3QF0UT 

// RUN ^ 



Cards produced by ANBOl 



Figure 2 illustrates the execution of the sort phase. 

*Where uu, 1 1, pppppp, nnn, are the appropriate entries for unit, 

VTOC file label, volume label, and number of tracks respectively. 

Program ANB02, the Report Program 

This program processes the user's 'PRINT' and 'COUNT' statements. The 
'PRINT I statement is required; the 'COUNT' statement is optional. The 
order in which they are input is not important. Figure 3 illustrates the 
flow for this program. The disk input file, which was produced by the 
sort phase, is interpreted for printing and tabulation via the 'PRINT' 
and ' COUNT ' statements . 

The OCL and data required, placed in MFCUl, are as follows: 

// LOAD ANB02, Fl 

// FILE NAME-INPUT, UNIT-uu*, PACK-pppppp*, LABEL-S 3QF0UT 

// RUN 

PRINT 

COUNT (optional) 

/* 

The report is produced on the system printer at this time. Figure 3 illus- 
trates the execution of Phase III, program ANB02. 

*uu - unit sorted master file resides on. 
PPPPPP - pack label for above unit. 



Program Al'JBOa, Sample File Creation Program 

In order to run the sample program, a sample file must be created. The 

following OCL must be placed in MFCUl along with the sample data in order 

to execute the sample file creation program: 

// LOAD ,ANB03, Fl 

// FILE NAME -SAMPLE, UNIT-uu, PAC3C-ppppp, LABEL-SAMPLE, TRACKS-1, RETAIN-T 

// RUKf 



Sample Data 



/* 

Where uu and pppppp are the appropriate unit and pack designations. 

Modification Aids 

There are two basic categories of modifications discussed elsewhere in 
the documentation. The first category involves tailoring the programs to 
the hardware configuration (System/3 Model 10) and specific master file 
of the user. This includes modifying for increased printer capacity, 
allowing for more information in control statements, and adjusting for 
the size of the Data Element Dictionary. These changes are presented in 
detail in the section on "Installation Instructions", pages 16 to 23 of 
this meuiual . 

The second category which is a general discussion on how to modify these 
programs to execute on the System/3 Model 6 is contained in the Systems 
Guide. 



SELECT (SEX EQ F) AND (AGE LT 40) AND (CORNRY EQ +) AND (VENFIB EQ +) 

SEDSCT (ONHAND LT BAKORD) OR (BAKORD GT 0) 

SELECT (STATE EQ lA) AND (STATUS EQ D) 

SORT AGE, STATE, YEAR 

SORT ITEM, ONHAND 

SORT AMOUNT, DATE 

PRINT NAME, ADDR, CITY, AMOUNT, DUE 

PRINT ITEM, ONHAND, ONORD, BAKORD 

PRINT CUSTNO, CUSNAM, ADDRS , BALDUE 

COUNT AMOUNT 

COUNT BALUDUE, CURRNT , PASTDUE 



Figure 4 — Examples of Command Statements 



The Problem : To determine all items that either have yielded a year-to- 
date margin of $1,000 or more, or, those which have sold more than 250 
mits. These items should br sorted by item class, and by the margin 
amount (descending) within that. The printed output should contain the 
item class, .item description, item number, quantity sold, and the gross 
margin. The margin amount should be tabulated and printed at the end of 
the report. A coiint of records is automatic. 



The Required Query Commands ; 

SELECT (MARGIN GE 1000.00) OR (QUANTY GE 250) 
SORT ITMCLS, MARGIN-D 

PRINT ITMCLS, DESCR, ITEMNO, QUANTY, MARGIN 
COUNT MARGIN 



The Resulting Report : 

CLASS DESCRIPTION 



ITEM # 



SOLD 



GROSS MARGIN 



A93 


#13 GEAR 


1468 


12 


2260.00 


A93 


#13 GEAR 


1469 


68 


1108.00 


A93 


#24 GEAR 


5201 


252 


12.50 


BOl 


PINION 


309 


1 


1000.00 


BOl 


A-Y LEVER 


2415 


868 


868.00 



RECORDS PRINTED = 5 
TOTAL MARGIN = 5248.50 



Figvire 5 — A Sample Query and Resulting Report 
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SYSTEM/3 QUERY FACILITY COMMANDS 

lLrltZ/7 "^^ 7^^^"^ ""^ ^"""^^^^ ^ "^^^'^ request, his problem must be 
expressed to the facility in the fon« of commands. This set of commands 

in wh!S ti T%^! ''''^'" ^^'"^ "^^^'^'^ ^"^°^^^ ^° «^l^^t, the sequence 
in which to output the records, the data to print on the output report, and 
the numeric data fields for which totals are to be accumulated. A que:^ 
can be comprised of four statement types. Their detailed descriptions and 
formats are found in the following pages. 

'SORT' Control Statement 

The 'SORT' statement is required for any query. This command defines how 
the records are to be sequenced by specifying the data element names to use 
for sequencing. The first data element name has the most significance in 
sorting; the last is least significant. All sequencing is assumed to be 
ascending; descending sequence for specific data elements can be specified 
(see below) . The normal System/3 collating sequence is used, which, in 
general, treats blanks and special characters as lowest values, followed 
by alphabetic characters (A to Z) , then by numerics (0 to 9) . For more 
detail, refer to the Disk Sort Manual (SC21-7522) . 

The format is as follows: 

SORT de , de,, de, de 

1^3 n 

where de^ is a data element name. The characters 'SORT' must start in 
column 1 of the card and be followed by one or more blanks. Data element 
names must be separated by commas, and any number of blanks (0 up) may 
follow a comma. The program is written to allow a maximum of 10 data 
element names in the 'SORT' statement. As previously mentioned, a data 
element can be specified as a descending sort control field. This is 
accomplished by simply following the data element name in the 'SORT' 
command by the characters '-D'. 

The following are examples of 'SORT' statements: 

SORT STATE, CITY, NAME 

SORT VENDOR, ITEM 

SORT SALES -D 

SORT AGE, IQ-D, GRADE 

'SELECT' Control Statement 

The 'SELJECr' statement gives the user the ability to extract records from 
his data file using the power of Boolean logic. Records that meet the 
criteria specified in the 'SELECT' statement appear in the output report; 
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all others are ignored. This gives the user the ability to retrieve cate- 
gories of data from his files (such as all the customers in New York or 
all back-ordered items) . it is also possible for the user to explore his 
files seeking unique relationships and correlations. This technique may 
be used to discover trends or other patterns not readily provided by other 
programming techniques. 

The 'SELECT' statement is comprised of a series of Boolean relationships 
that are linked together by the 'AND' or 'OR' logical operators. The 
Boolean relationships are simple comparisons between two data elements or 
between a data element and a constant. The relationship is enclosed in 
parentheses. To form the relationship, the two data element names (or 
data element and constant) are separated by the comparative operators EQ 
(equal), NE (not equal), L,T (less than), GT (greater than), LE (less than 
or equal) , GE (greater than or equal) . The first name m the relationship 
must be a data element name; the second may be a constant or a data ele- 
ment name (if it is not found in the Data Element Dictionary by the pro- 
gram, it is assumed to be a constant) . Alphabetic constants may be from 
1 to 20 characters in length. Numeric constants can be from 1 to 15 digits; 
in addition, a minus sign may preceed the numeric constant and a decimal 
point may be inserted. Some examples of these relationships are: 



(AGE CT 20) 



d.e. - constant 



(AGE GT 20.0) 
(NAME EQ JONES) 
(NAME NE ) 
(NAME GT AAAAA) 
(TEMP LT -10) 



equivalent to above 



d.e. 


— 


constant 




d.e. 


- 


constant 




d.e. 


- 


constant 


(blanks) 


d.e. 


- 


constant 




d.e. 


_ 


constant 





(ONHAND GE ONORDR) 



d.e. - d.e . 



To construct a 'SEIjECT' statement, the Boolean relationships are linked 
together by the linkage operators 'AND' or 'OR' to define the total criteria 
by which to extract the records. The format is as follows: 



SELECT (Rel ) AND/OR (Rel ) AND/OR 



(Rel ) 

n 



The characters 'SELECT' must begin in column 1 of the first card (two cards 
are permitted) followed by one or m.ore blanks. The 'AND' and 'OR' opera- 
tors may be preceeded or followed by one or more blanks. If 2 cards are 
used for the statement, the data in the first card must end with a right 
parenthesis (') ') and the second card must begin with the operator 'AND' 
or 'OR' in column '1*. 
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sh4: r.lrn ^t^ T L'°r ''; r^^^- ^^--^ ^^^ ^°^^-^ -^-ion- 

record to be selected whin t^ '^^°' '"^ '°^" ^P^^^^-- ^or a 

xt must .eet "e cSterL 0^11^" r'^^'T''^' "^ ''""^^ ^^ •^^°'' 
crxueria ot all the relationships. For example: 



Low 



SELECT (AGE GT 20) AND (SEX EQ F) 

""flTZ ^f "'" ^fl'^^^^'^ records must be for individuals who are both 
female and over t^ie age of 20. But if ^^^ 

SELECT (AGE GT 20) OR (SEX EQ F) 

wrtrtlt'f'^'i"'' ^"'^^-^'^--l^ over the age of 20 will be selected along 
for si cti:': rfV''^ ?'' °^^"^°^ ^^^^ ^^ ^ ^°^-^^ -P--tor to illov 
use of W as a T I "'f ^ ™ °"^ °' ^^^^"^ relationships. The 

o^^:.L.°:el::r:.:.X:^^^rr- — — ^ -- --^g several groups 

SELECT (AGE EQ 10) AND (SEX EQ F) OR (AGE EQ 12) AND (SEX EQ F) 

thi\r^"^\^^^ ""^"^^^ ^°^ ''"^^ ^° ^"^ 12 year old females. However if 
the statement were written as : nuwever, it 

SELECT (SEX EQ F) AND (AGE EQ 10) OR (AGE EQ 12) 

sex'^t^f ^OR-'ot '°/'\' °'k ''""'^' ""' "'' '' ^^^^ °1^^' -gardless of 
sex, ti^e OR operator has been used to group the relationships A wav to 

ir: IV"''^: °' ""^ '°"' °^^"^°^ ^^ ^° ^^^^-^ ^^ -^^ brackets; th'is 
IS a convenient way to desk check the 'SELECT' portion of a query In 
general, tlie procedure is: y^ci-y. in 

SELECT iimL^) AND (Rel^) AND (Rel3) OR (Rel^) ] OR [(Rel,.) AND (Rey ] 
can be handwritten as: 

SELECT [(Rel^) AND (Rel^) and (Rel^)] line 1 

°^ ^^"^W^ line 2 

or [(Rel^) AND (Relg)] line 3 

If the record meets eitlier the bracketed criteria of line 1, line 2, OR 
line 3, it will be selected. — 

in summary, the 'SELECT' statement can be invoked in a simple fashion, 
or can be used to pose a relatively complex query to the system. 
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A few examples of 'SELECT' statements follow: 

SELECT {ITEM GT 6100) AND (VENDOR EQ 5621) OR (ITEM LT 5000) 
AND (IlEM GT 4000) AND (VENDOR EQ 4802) 

SELECT (STATE EQ NY) 

SELECT (DATE EQ 060172) AND (INVCE EQ 2 32) 

SELECT' (OJHAND EQ 0) OR (SALES LT 2500.00) 

'PRINT' Control Statement 

The ■ PRINT- stareinent is required for any query. The operands are a series 
of data element names separated by commas. This statement causes the speci- 
fied data elements to be edited and printed for each record encountered. It 
also extracts the specified heading for the data element from the Data 
element Dictionary and prints it at the top of each page. In addition to 
data elerr,ents, the operand 'NO' may be specified to suppress the printing 
of any information for each record encountered. This may be used in con- 
junction with the 'COtJNT- statement (and the automatic record count provided) 
to obtain total information without printing the detail data, as the totals 
will print even with tlie presence of the 'NO' operand. 

A 2-digit number may also be inserted as an operand to cause additional 
lateral spacing between fields when they print on the report. The numb 
corresponds to the desired number of blank spaces to be inserted. 

The general format of the 'PRINT' statement is: 

PRINT de , de,, de , nn, de., .... de , NO 

•L r~ J £l rt 



umber 



where de^ is a data element name; nn is a 2-digit space control number; and 
'NO' IS a suppress print request. 'PRINT' must begin in column 1, followed 
by 1 or more blanks. Blanks may be inserted following the commas if de- 
sired. A maximiam of 15 data element names may be specified; the use of 
numerics or the 'NO' operand each counts as a data element name in relation 
to the maximum of 15. An error will occur if the number of print positions 
required to satisfy the print command exceeds the size of the system printer. 

Examples are : 

PRINT NAME, ADDRS , AGE, AMODNT 

PRIKT ITEM, 40, SALES, 20, GROSS 
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PRINT LOCATION 

PFaNT AMOUNT, BAL, AGE, NO 

.'COUNT' Co ntrol Statem^n^- 

of the repoit. ^y d^ael.^^f " '"" """' '*" "^""^ « ""e and 

52i=t also appe„ i^ tt^'PH^? .iT' =P^'=""'i " <*» •«'™T' statement 

The general format is: 

COl^T de^, de^, de3, de^ ,e^ 

L"'PRl8T'%tate^:nt' Te lUZT. "^ ^^^ ^^^ ^^^° ^^^ ^^^^^^^^ in 
blank xnust begin "I;! u^i ?'""=''" "°"""' ^°^^°-^ ^^ ^^ ^-^t one 

Examples are : 

COIOT AMOUNT, BAL, MARGIN 

COUNT AGE 

COUNT QUANTY, COST 
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INSTAliATION INSTRUCTIONS 



The following pages describe tJie step-by-step procedures that must be 
followed to generate a viable Systein/3 Query Facility to process your 
master file. If these programs will be used in conjunction wii± several 
files, the Facility must be generated separately for each one cind the 
programs cataloged with ijnique names (column 75-80 of the KPG II header 
card) in your library. 

The card deck as received from P.I.D. is comprised of three RPG II source 
decks ajid one deck of sample data. The order is as follows: 

Program ANBOl 
Program ANB02 
Program ANB03 
Sample Data 

It is recomnended that the entire deck be reproduced for back-up purposes. 
The user should review the sections on installation and operations before 
attempting to generate the system. It would be quite beneficiail to devote 
the small amount of effort necessary to generate the sample system and 
execute the sample program before proceeding with generating a "live" sys- 
tem. This is described in tl-e section "Sample Problem Input and Output". 

Steps for System Generation 

The following functions must be performed in generating the System/3 Query 
Facility: 

1. Obtain a current version of the record layout description for the 
master file. 

2. Create a Data Element Dictionary according to the instructions in 
the following section 'The Data Element Dictionary'. 

3. Replace the sample Data Element Dictionary in the two programs 
A^fB01 and ANB02 with the one created in Step 2. (This is found 
at the end of each program deck between the '**' and '/*' cards.) 

4. After obtaining a source listing of each program, perform the 
required modifications and review the potential modifications to 
the source programs as defined in the section "Tailoring the 
Source Programs " . 

5. Compile and catalog the two programs ANBOl and ANB02. 
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fo. Create the OCL necessary for executing the facility. This is 
described in the section entitled "Program Description". 

7. (Optional) Catalog the OCL in the Procedure Library of the systems 
pack xf you desire to use the 'CALL' functions of System/3. 

8. Exercise the facility enough times to have used every data element 
name in a 'PRINT' command and every numeric data element name in 

a 'COUNT' command, checking the output for accuracy in content, 
format, and heading information. This will help verify the accur- 
acy of the Data Element Dictionary. 
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THE DATA ELEMENT DICTIONARY 

Each program of the Ou^r^i Pa^ii^i. 

the Data" Element Dxct'^'nach ^^'Tl ' ''' "" ^^'^ ^^'^^^"'^^ -^^^^ 

(fields) found in the reSa of ^elT-l ^^.'''''t' °"^ "' ^^ ^^^^ ^^^ ^s 

the foon Of alterr.atxng tables The^irst°-rt """T '''"^"' "^°^^^ ^" 
name of the data element, is o^e I^le ^e ^^^^^ °' "^^ '^'" ""°"'^' ^^^ 
parameters, comprxse the alter^ate^i^L '^"^^ P^^^^^^' the descriptive 

xn it xs a pe^ane^ "map- o^tf ■ ''''^'"' ^^^ infonnatxon contained 

are the co^unxcatro'n ^ .Ir^^JlCulTZ T ^^ '^'^ ^^^'^^"^ "^^^ 
parameters should be completeJy checked for T ^^'"'' facility. The 

unique and carry meanx./to l^ potential "s^r ?""''• '"' """'' ^"^^''^ ^^ 
Creatine^ the_D ata Element Di ctinn^.^ 

inserted in place of the =, °L^\^ ^^^ Facilxty; these cards should be 

eters that need addition^T ! ^"^ ^^^'"^"^ ^°^ ^^^^^^ • Two param- 

data element hLdxn^^he n^'lho^.r^ "^ ""^ '^'^ ^'^""^"^ "^^ -^ ^^ 
users of the faciUu^ tLT^. \^^ selected to convey meaning to the 

each field, as Sehe;dilaw'n'%°"'^ "''° ""^ ^''^^^^^ descriptive of 
The number Of c^ract^r L th" T'f °" T"'' ^"^^ °' ^" ^^P°-t produced. 

Prxnt length of S; f : d ir oLrfo^achf^'' ^' ^""^^^'^^ ^^'^"^'^ ^° "^^ 

exa in order to achieve a report pleasing to the eye. 

T.T.Zl:'''"'"' " ■^'"""•'^ " » ="'^« =«^ f " .dhe«. to t.e folic- 

Card 
Columns Conx:ents 

^'' ''^"^ ^i^"«"^ ^^ -- From one to six characters. The first 

c-naracter must be alphabetic ; the name may contain no special 

h^ulHo" °' '''^'''^' ''^"^'- ^^'^^ "^ "-^ ^- unigue'anT 
should convey meaning to the user. 

'"' lTa\l^^'"T '^^^^^'^g Position - Three-digit numbers defin- 

record' ""' ^°''''°" °' "^" ^"^^ ^^^^"^ ^" ^« --ter 

10-12 Data Element Endxng Position - Three-digit number defining 

the endxng position of the data element in the master record. 
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Card 
Colunms Contents 



13-13 Data Element Format One character defining the format of 

the field in tlie master record: "C" for alphameric fields, 
"P" for packed-decimal fields, "u" for zoned-decimal (unpack- 
ed) fields, and (if the supplemental routine to interpret 
binary data has been inserted in the source code) "B" for 
binary formatted numeric fields. 

^^'^"^ Decimals — One digit number defining the number of digits 

that exist to the right of the implied decimal point. This 
entry is valid only for numeric fields and must otherwise be 
blank. Two additional options are provided for numbers with 
decimals: First, a negative 'l" (j) may be specified in 
column 14 to eliminate the insertion of commas and a decimal 
point into the edited field (this would be used for fields 
like item number, etc.) . For numeric date fields, a nega- 
tive 2 (K) may be entered m column 14 to provide slashes in 
the edited field (e.g. mm/dd/yy) . 

■'•^"■'•^ '^^^^ Element Print Positions — Two-digit number defining the 

number of print positions required for the data element and 
its heading in the reports generated by the Query Facility. 
This is normally the larger of either the number of charac- 
ters in the heading or the number of characters in the field 
(as it is printed) . The print length for numeric fields 
should be computed as follows: 



ng: 



Add to the number of digits in the field the foliowi 

2 — if number of digits are from 1-3 

3 — if number of digits are from 4-6 

4 — if number of digits are from 6-15 

The entry in columns 15-16 can be greater or less than the 
"normal" entry. A greater number can waste print space and 
a smaller number could cause truncation of either heading or 
data. 

1'7-31 Data Element Heading — Any valid System/3 characters. Nor- 
mally this entry is left-adjusted but it may enhance the 
printed output in certain cases to pad with blanks on the 
left. If padding is done, this must be considered when 
making the Print Positions entry in columns 15-16. 

After the Data Element Dictionary is created, it is important to make a 
list of the data elements and their ^ascriptions available to all users 
of the Query Facility. This is i portant as it is the single link of 
communication between the user cuid his master file when using the Facility. 
For an example,, see Figure 7. 
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TAILORING THE SOURCE PROGRAMS 

The source prograjtis ANBOl and ANB02 must be adapted to the particular situa- 
tion for which they will be used. Part of system generation is making the 
appropriate changes to the RPG II code before compiling. The required 
modifications are those related to the record size of the master file and 
the nvimber of data elements in the Data Element Dictionary; the creation 
of the Data Element Dictionary is also mandatory. Additional modifications 
can be miide to allow for an increased number of print positions and for 
allowing more information to be contained m the control statements. These 
are described in detail in the following sections. 

Statements in the source programs that require modification are flagged 
with a modification code in columns 90-95. The action that is required for 
each statement is described in detail on pages 21-23. 

In addition, the user may have a need to process numeric data that is con- 
tained m his master file records in binary format. This is described in 
the section "Processing Binary Fields". 
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JJg^ili££^l2Il£.^,P£O2ran^,,ANB0_l to Tailor the Svste 

Modi f i ca - 

tion Code Desc r i p t i on 



m 



104* 



116 



117 



118 
119 

120 
121 
12 3* 

124* 

♦Note : 



the'^L'p;'" '""'^'" '"^^ "^^" °' ^^^^-^ elements defxned .n 
•tLpar-) "" ■ """"^'""^^^ ^^^'-^- '™^LD' ^"d its alternate 

113* column 5i = 2 if master fxle record length from 10 to 99 bytes- 

coluran 51 = J if length from 100-999 bytes. 

the bELECT statement. The entry is a multiple of 96 corres- 
ponding to the arbitrary maximum number of 96 byte records 

^lvTrt''°l l""" ■'^'^'''" ^^-^^-^-^- The program allows the 

rt . ^tatement to span multiple records and currently is 
set to 2x9h =192. 

Columns 37-39 contain an entry that corresponds to the maxi- 
t^ "S;^."' !°f" relationships that can be specified in 
the SE.LECT statement. This is related to the entry made 
for xl6 m tlie sense that the more records that csa, be spanned 
by the -SELECT- statement, the more field-field or field- 
literal relationships can exist. This must be between 10 
and 99 . 

Columns 3 3-34 correspond to the maximum number of 'SELECT' 
relationships allowed (agrees with 117) . 

Columns 37-39 contain the maximum number of data elem«nt^ 
that can be specified in the 'SORT' statement. This must be 
between Ih .-jt;d 99. 

COxuiuis 33-34 correspond to the number of data elemei.ts that 
can be specified in the 'SORT' statement (see 119). 

Columns 33-34 correspond to the maximum size of the 'SELECT' 
statement (agrees with 116) . 

Coluims 48-51 correspond to the record length of th.e master 
file (agrees with 207) . 

Columns 55-57 contain the record length of the master file. 

Codes 104, 113, 12 3, and 124 are the only ones that need be considered 
to implement this program with the author's pre-defined limits. The 
limi ts are : 

2 cards for the 'SELECT' statement 
10 'SELECT' relationships 
10 'SORT' data elemt....:^ 
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Modifications to Procfram ANBQ2 to Tailor the System 



Modifica- 

tion Code Desciiption 



201 



202 



ao3 



Colijsnns 25-27 contain the number of print positions on the 

system printer. 

Columns 37-39 contain the number of print positions on the 

system printer. 

Coiumris 37-39 contain the record length of the master file 

(must agree with 207) . 



204* Coluams 37-39 contain the number of data elements defined in 

the Data Element Dictionary (table 'TABFLD' and its alternate 

•tabpar') . 

205 Columns 38-39 contain the maximum number of data elements 

that can be specified by the user in the 'PRINT' statement. 
This nuTiber must be greater than 10, but its upper limit is 
restricted by the maximum number of fields that can be fit 
into one line of print, considering print positions required 
to be the number specified in columns 16-17 of the Data 
Element Dictionary record. 

'^O^ Columns 37-39 contain the maximum number of data elements that 

can be specified by the user in the 'COUNT' statement. This 
number must be greater than 10 but its upper limit is bounded 
by the number of data elements defined (See 204). Also, 
consider the impact on core requirements if you choose an 
arbitrarily large number. 

207* Ccluffins 25-27 contain the record length of the master file. 

208* Colusfuns 48-51 contain the record length of the master file 

(must agree with 207) . 

209 Coluxan 51, array index field length, must be 2_ for 96 print 
positions or 2 for 120 or 132 print positions. 

210 Columjis 33-35 contain the number of print positions (agrees 
with 202) , 

211* Columns 33-34 contain the number of data elements defined 

in the "PRINT" statement (agrees with 205). 
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Modifica- 

tion Code _De script! on 



212 
213* 

214 

215 



*Note; 



be'sT^ciJilf i'°;.'"'? '"^ "^^^ °^ ^-^^ -^— ts that can 
be specifxed in the -COUNT' statement (agrees with 206). 

mas^ fL'/"^'' i"^^^ ''^''^ ^""5^^' "'"^t -^"^1 2 for a 
master file record lenqth of lo-qq or- ^ <=^ - 

of 100-999 ConsiH«r,; - "" ^ record length 

^J^^. consider your entry for 207. 

Columns 33-34 must be one areat^r t-h=,r. t-K 

element names allowed inZ^c^m^s,T "T?" °' ^^^ 

for 206 was 12, then this^^stTL) "' ^'' ^°^ ^"^^ 

Columns 41-43 contain the number of print position, on ^k 
system printer (must agree with 202) P°^^tions on the 

^V^utho^' 'th°enirSe'°^ J^^"^'" ^'^ ^^ ''"^^^ ^--^^-^ ^V 

96 print positions 

10 ^ll ^je^ents allowed in the 'print' statement 

10 data elements allowed in the 'count' statement 
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OPTICKM, W3DIFICATI0KS 



The following par&graphs discuss iroplsisBnt.ation of soine optional 
functions in the Query Facility,, They have not b««n aubjacted to any 
formal testing and are provided only as a guids. The KPG II coda in 
the accoirpanying .illustrations may hm halpfui to thosa wiahing bo 
expand thM ftmction of the Facility, With on« axcaption, the usa of 
tiieae options may either increase core raquiraiwanta or causa axcasaiva 
overlay* on a ndnimuHi confi'gu,r«tion. 



Sub-Totala (LI Totals) 



In some cases it could be. bensf 3 ciaI to c:bt«,in 'group sub-totals for 
the numeric fields specified tf;, nh« 'COUN'i'' statement, as well as 
overall totals. For exanrole, s»n xyv^^rytory query irdght be written to 
provide sub-totals for each vB.ndor as w«iil as final totals for all 
vendors. The RPG II statements in fiuu.X'S 14 p.rovide a means to 
accomplish this function. 

Once the modification has be-isn mads to program .ftNB02 , the user nwiy 
request sub-totals in bis quei-f fay the addition of a statement with 
'BREAK' in columns 1-5. The f-t.mte.m«nt contains no other information. 
The aub-totals are printed wn«n®V9r a cihange in content of the first 
operand of the 'PRINT' statemwcnt is sansad. It is analogous to 
specifying an RPG II Ll brsa'*!: on tt:*-: fir,at 'PRINT' operand. If ithe 
'BREAK' statement is not irrcludwd, chs gob-totals ara not produced. 

For example : 

PRINT VENDCiR, ITEM, COST, SEIi 

COUNT COST, SELL 

BREAK 

would cause sub-totals of tJ-j« COST and SELi fields to be printed for each 
vendor group and,- as expected, final totals will appear at the end of 
the report. The sequence of the 'BREAK' statement is not importeint. 



Calculations 

This modification will allow riie user to »p«scify two of tJie numeric fields 
in a record to be used »m operands in a calculation. The result of the 
calculation will be printed along witJi the other data fields included in 
the report. The operation* included in t^ls function are addition, sub- 
traction, and multiplication. 
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An additional command is used to invoke this function. The format is: 



Columns ].--7 

Coliamns 8-13 

Columns 14 

Col-omns 15-20 

Examples are -, 



' RESULT= • 

Operand 1 

Operation Code: '+', '-', or 'X' 

Operand 2 



RESULT-QTY XCOST 
R£SULT=GROSS -MET 
RESULT-VALUEA+VALUEB 

When tlie report is produced, the result field prints as the right most 
field in each punted line. The operand 'RESULT' is not allowed in the 
'PRINT' statement of a query, but should be used as an operand in a 'COUNT' 
statement if totals of the result field are desired. 

The RPG II code in figure 15 should be used as a guide for changing the 
print program ANB02. m addition an entry in the D.E.D. of that program 
must be made for the field 'RESULT' as follows: 

RESULT000000U520RESULT FIELD 

to properly define the field. 



Program Size Reduction 

In certain exre-.tional situations it may be desirable to reduce the size 
of the print program ANBG2 or to eliminate excessive overlaying. One means 
to accomplish this is to modify the program so that the 'PRINT' and 'COUNT' 
statements pre coded in fixed format instead of the free format described 
earlier in this manual. This simply means that the user must punch the 
operands in specifLr ',;cJurnns of the comman statements. The logic for 
scanning the free- form statements can then be removed from the program, 
reducing the size of the program. 

The modifications for this are illustrated in figure 16. When these changes 
are made, the user must now code the operands of his 'PRINT' or 'COUNT' 
statements in the fixed positions of columns 7, 13, 19, 25, 28 .... etc. 
The operands are not separated by commas as in the past. For example, 
statement r.reviously coded as: 

PRINT NAKE, AGE, AMOUNT, PRCNT 
would now be written as: 

PRINT NAME AGE AMOUNTPRCh:'" 
All other coding rales remain unchanged. 
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Cat &iog ueci Sort Sgecif ications 

Wxth tha i,-sno.u,„an;.5nt os: V ^rsion 7 of the SCl^ for System/3 w€; can e].im.inai:e 
rhe p'.jjichitig c:£ scrt. specifications in Phase I of processinq a q.iery. Instead, 
program M-JBOl cculd be modified (by changing the device designation in the 
file description of the output file) to "punch" the sort specs on disk. A 
new job stap, phase lA, cculd be a SMAINT job to catalog these starementr, . r; 
luhe source library. By adding n '// SOURCE-...' statement behind r.he OCL re.-; 
Phase II, the tjort will extract the specification? from the library ijiEtfc..a 
of MFCUl. 

Implementing this concept would increase the execution time of a query by ..• 
minute or so but woiild eliminate the inconveni i.n.,e to the operator of 
having to move punched c&rds from stacker 4 to fIFCUl before execution of 
Phase II , 



Proces sing Bxnaxy ,yormatted_ Numeric Data 

The RPG IT Statements in Figure 6 are a suggested means to allow the user 
to access binary fields m tJ-ie master record. This coding converts the 
binary field to internal zoned-decimal format so that the existing routines 
m program AHB02 can print and tabulate the data. The length of Uie fied 
in the record is not restricted, except that its equivalent number of decirnai 
digits do«3 not excsad 15; however, if the field is created by an RPG II pto- 
gram, the binary fitsld must be either 2 or 4 bytes long. The bintiry formatted 
data elements RKuy nf;_t ha specified in the 'SORT' and 'SELECT' statements; thf'V 
are vai.d t-ppv .■■/id-j i ^^ :he 'PKINT' and 'COUNT' statements. 
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OPERATIONS INSTRUCTTIQNS 

User Prepared Input 

There are three types of input information that must be supplied to the 
system upon execution. First, tiie user's master file. It is assumed that 
users will hav.. existing application programs that create and maintain this 
tile. There are no restrictions with regard to the file, except that the 
fields m.ust be m standard System/3 formats, the record length fror- 10 to 
y99 bytes, and the organization eitiier indexed or sequential. 

Second, the OCL required for execution. This is described in the section 

Program Description". Third, the Query Facility Control Statements. These 
are described in detail in the section "Control Statements". 

Procedure s 

A query is processed in three phases. The first phase, using program 
ANBOl, IS the process of interpreting the 'SELECT' and 'SORT' statements 
and converting them into System/3 Disk Sort Specifications. Phase II is 
the execution of the Disk Sort Program which processes the master file, 
selecting and sorting data according to the specifications produced in 
Phase I. Phase III, through the interpretation of the 'PRINT' and 'COUNT' 
statements, produces the final output, the printed report. 

These steps are required for processing a query: 

a. Punch tJie coiiLrol statements into 96-column cards. 

b. Process the 'SEI£CT' (optional) and 'SORT' statements '..-itn 
program ANBOl. The statements, preceded by rhe OCl. , are placed 
in MFCUl for execution as described in the "Program Description" 
section and Figure 1. Blanks are placed in MFCU2 for punching. 

c. Clear the MFCU by pressing NPRO. 

d. Remove the punched output from Stacker 4 and place behind the 
OCL for Phase II (sort phase) in MFCUl. Then execute Phase II. 
;Refer to Figure 2. 

e. Place the OCL for Phase III (report creation) in MFCU 1 followed 
by the 'PRINT' and 'COUNT' (optional) statements as described in 
the "Program Description" section. The printed report is then 
produced. 
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To conserve disk space, tlie file "S3QF0UT'- should be deleted. (If 
a location paraisTeter is defined in tlie OCL for the OUTPOT file of 
Phase II, and "RETAIN" -T is specified, the file can autonatically 
be overlayed following &n 'LL' halt during Phase II execiation.) 
To delete the file, use tiiose GCL and control statements: 

// LOAD $DEL£T,F1 

// MJ^! 

// SCRATCH [JNTT~UU, PAC3:-pppppp, LA3EL-S .IQFOLT 

// END 



Errors 

Error conditions encoxintered by the syntem are displayed in the form of 
halt indicators on the console. Noncai response to these halts, after 
noting the cause, is to imrr.edi-Atelv carcfil the job. The control statements 
should be corrected and resabmicted. 3orie rare errors, however, will re- 
sult in a]3normal termination of Phase II. These errors are incapable of 
being trapped by ANBOl but the sort 
Phase I unintelligible. 

These halts nay occur: 



f f S r"l H Q f- >■ 



inds the output of the prograiTi in 



Halt 



Program 



Hi 


ANBOl 


H2 


mBOi 


H3 


ANBOl 



Descri£tiOT; 

Too many select records. 

Invalid data element name in 'S0R1?' statement. 

Invalid data element name in 'SELi;CT' state- 

r!ie:--t '-. '.A' operand) . 



H4 



ANBOl 



Multiple card ' SELECT' statement; first card 

^s not the 'SELECT" card. 



H5 



ANBOl 



Invaiid ::ar-i type (does not begin with 
'SEI£:CT', 'AND', 'OR', or 'SORT'). 



H6 



ANBOl 



Data Element Dictionary starting er.cry 
greater zha.Ti end position entry for a data 

elemenr. . 



H7 
H8 



ANBOl 
ANBOl 



No 'SORT' specifications encountered. 

Numeric field defined in Data Element Dic- 
tionary witii '"ore than 15 digits. 
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Halt 
HI 

H2 

H3 

H4 

H5 



Program 
ANB02 

ANB02 

ANB02 

ANB02 

ANB02 



Description 



H6 


ANB02 


H8 


ANB02 


14 


ANB02 



Invalid data element name in 'PRINT' 
statement. 

Invalid data element name in 'PRINT' 
statement. 

Too many data elements specified m 'PRI^^" 
statement. 

Too many data elements specified m 'COUNT' 
statement. 

Data element has an invalid format code in 
Data Element Dictionary. 

Print line length exceeded. 

Invalid command type. 

Numeric data element defined with more than 
15 digits. 
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SYSTEM CAPACITIES AND LIMITATIONS 

The following restrictions apply to the system in its unmodified form: 

a. Object programs require 9K bytes of main storage. 

b. Output printer requires 96 print positions. 

c. Master file for which the facility is generated must be indexed 
or sequential in organization. The record length must be between 
10 and 999 bytes long. 

d. Acceptable data formats are alphanumeric; packed decimal, ,=ind 
zoned decimal. 

e. Maximum of 2 cards to contain a 'SELECT' statement; all other 
statement types are restricted to one card. 

f. Maximum of 10 comparative relationships in the 'SELECT' statement. 

g. Maximum jf 10 Data Element names can be specified in the 'SORT' 
and 'COUNT' statements. 

h. Maximum of 15 Data Element names can be specified in the 'PRINT' 
statement. 



Throughput 

The user of the Query Facility will experience a wide variation of print 
speeds while executing the report program, ANB02. The differences are 
caused by the variation in data fields being printed from one job to 
another: A print request for 2 or 3 alphabetic fields will experience 
higher print speeds than a request that prints several fields that were 
originally packed da,ta. Numeric fields, especially packed format, re- 
qiiire more attention by -die program because of editing and tabulating 
requirements. 
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SAMPLE PROBLEM INPUT AND OUTPUT 

The sample problem is provided to demonstrate the functions of the System/3 
Query Facility to the user, it is recommended that the sample file be 
created and the sample queries be executed prior to generating the system 
for use witii live data files. 

Generating the Sample Problem 

In order to run the sample problems, a Query Facility must be generated for 
the sample file and the sample file must be created. The necessary modifi- 
cations to the decks for programs ANBOl and ANB02 have already been made. 
The Data Element Dictionary has been created and inserted in tlie source 
decks. Figure 8 gives the record layout specifications for the sample file; 
It was from this that the Data Element Dictionary was created (Figure 9) 
and punched into 96 column cards. Figure 7 illustrates a sample of a user's 
guide for the sample file. It is this document by which the user bases his 
queries. 

These are the steps necessary to generate the sample Facility and execute 
the sample queries : 

1. Compile and catalog programs ANBOl, ANB02, and ANB03. 

2. Execute program ANB03 using the sample data found in the distri- 
bution deck. Reference the section on "Program Descriptions", 
page 8. 

3. Execute program ANBOl using the OCL defined on page 3 and the 
following query statements: 

SELECT (VENDOR EQ 357) AND (ONHAND LT BAKORD) 

SORT ONHAND, ITEM 

/* 

4. Execute the sort phase using the OCL defined on page 7. 

5. Execute program ANB02 using the OCL defined on page 7 and 
the following query statements: 

PRINT ITEM, DESCR, CLASS, ONHAND, ONORDR, BAKORD 

COUNT BAKORD 

/* 
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6. Rerun Step 3 using the following query cOTtmand: 

SORT SALES 
/* 

7. Rerun Step 4. 

8. Rerun Step 5, using the following query conanands : 

PRINT ITEM, OESCR, VNAME , COST, SEii, SALJBS , MARGIN, QTYSLD 

COUNT SALES, MARGIN 

/* 

9. Write and execute sample queries to gain familiarity with tbe 
facility. 
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MODIFICATIONS TO PRUCtbb oiNARY FORMATTED FIEL 



DS 



INiuKT THtSE CAKOS AFTtH STATE 



MtNT NUMOew 1700 IN PROGHAM ANB02. 



CSH 

CSR 22 
CSW 22 



FMT 



CUMP 'B' 
StTOF 
tXSR CVD 



22 aiNARY 



H5 



iNbtKT This subRqutIne aftcr statement NUMbtR 



3530 IN PROGRAM ANBOid. 



CSR 




CVL> 


BtGSR 




cs.-< 






Z-AOOO 


NM 


CSR 






TtbTB»0* 


AiN.a 


CSH 






BITOF'O' 


AIN.B 


c*CunvEht 


INARy Fl 


cLD TO A NUMERIC 


FIELD. 


CSR 




BITEST 


TAG 




CSR 






ThSTB'O* 


AIN.B 


CSR 






TtSTb' 1 • 


AIN.B 


CSR 






TtST8«2« 


AIN.B 


CSR 






TfcSTB'3« 


AIN.B 


CSR 






TEST3»4« 


AIN.B 


CSR 






TESTB«5« 


AIN.b 


CSR 






TESTB«6« 


AIN.B 


CSR 






TESTa'7« 


AIN.B 


CSR 


67 


1 


AOO NM 


NH 


CSR 


66 


2 


ADO NH 


NM 


CSR 


65 


4 


AOO NH 


NM 


CSR 


64 


8 


ADD NM 


NM 


CSR 


63 


16 


ADO NM 


NM 


CSR 


62 


32 


ADD NM 


NM 


CSR 


61 


64 


AOD NM 


NM 


CSR 


60 


126 


ADD NM 


NM 


CSR 




1 


ADO b 


B 


CSR 




d 


COMP E 




CSRN50 


NM 


MULT 256 


NM 


CSRN50 




GOTO BITEST 




CSR 


55 




Z-SUBNM 


NM 


CSR 






ENOSR 





•NM' 



55 NEGATIVE NO, 



60 
61 
62 
63 
64 
65 
66 
67 



50 



Figure 6 — Binary Routine 
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Data 
Element 
Name 


Format 


Heading 


Print 
Positions 


ITEM 


Numeric 


•ITEM #• 


6 


CLASS 


Alpha 


'CLASS' 


5 


VENDOR 


Nxmeric 


'VENDR #' 


8 


VNAME 


Alpha 


'VENDOR NAME' 


11 


DESCR 


Alpha 


'DESCRIPTION' 


11 


COST 


Numeric 


'COST' 


8 


SELL 


Numeric 


' SELL ' 


8 


SAT.ES 


Numeric 


'YTD SALES' 


9 


QYTSLD 


Numeric 


•YTD QUANTITY' 


12 


MARGIN 


Numeric 


'YTD MARGIN' 


11 


ONHAND 


Numeric 


'ON-HAND' 


11 


ONORDR 


Numeric 


'ON ORDER' 


11 


BAKORD 


Numeric 


'BACK ORDERED' 


12 



Description 

Item Number 

Item Class 

Vendor Number 

Vendor Name 

Item Description 

Unit Cost of Item 

Unit Selling Price 

Year-To-Date Sales ($) 

Year-To-Date Sales - Units 

Year-To-Date Gross Margin 

Quantity On-Hand 

Quantity On-Order 

Quantity Back Ordered to 
Customers 



Figure 7 — Sanple File, User's Data Element Dictionary Guide 
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Field Contents 

Item Nijinber 

Class of Item 

Vendor Number 

Item Description 

Vendor Neune 

Item Cost/Unit 

Item Sell/Unit 

Year-To-Date Gross Sales 

Year-To-Date Quantity Sold 

Year-To-Date Gross Margin 

Quantity On-Hand 

Quantity On-Order From Vendor 

Quantity Back-Order to Customers 







# of 


Location 


Format 


Decimals 


1- 5 


Zoned 





6-10 


Alpha 




11-13 


Zoned 





24-33 


Alpha 




14-23 


Alpha 




34-36 


Packed 


3 


37-39 


Packed 


2 


40-43 


Packed 


2 


44-47 


Packed 





48-51 


Packed 


2 


52-54 


Packed 





55-57 


Packed 





58-60 


Packed 






Record Length = 60 bytes 



Figure 8 — Sample File, Record Format Specifications 
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D.E. 
Name 


Start 
Pos. 

7.9 

001 


End 
Pos. 

10.12 

005 


Format 


Decimals 
14 
- 1 


Print 
Pos. 

15.16 

06 


Heading 

17 


1 6 


13 

U 


ITEM 


ITEM # 


CT.ASS 


006 


010 


C 




05 


CLASS 


VENDOR 


Oil 


013 


u 





08 


VENDOR # 


DESCR 


024 


003 


c 




11 


DESCRIPTION 


COST 


034 


036 


p 


3 


08 


COST 


SELL 


037 


039 


p 


2 


08 


SELL 


SALES 


040 


043 


p 


2 


09 


YTD SALES 


QTYSLD 


044 


047 


p 





12 


YTD QUANTITY 


MARGIN 


048 


051 


p 


2 


11 


YTD MARGIN 


CTJHAND 


052 


054 


p 





11 


ON-HAND 


ONORDR 


055 


057 


p 





11 


ON-ORDER 


BAKORD 


058 


060 


p 





12 


BA(3C -ORDERED 
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These 13 cards comprise the Data Element Dictionary for the Sample File. 



Figure 9 — Sample File, Data Element Dictionary 
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UATA tLtMENT DICTIONARY FOR SAMPLE FILE 



ITEM 


I 


5UJ 


CLASS 


6 


IOC 


VENDOR 


I 1 


13U0 


VNAME 


14 


23C 


DESCR 


24 


33C 


COST 


34 


36P3 


SELL 


37 


39P2 


SALES 


40 


43P2 


OTYSLD 


44 


47P0 


MARGIN 
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UNHAND 
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eiTEM * 

5CLASS 

aVENOOR « 
11 VENDOR NAME 
1 IDESCRIPTION 

a COST 

8 SELL 

9YT0 SALES 
12YTD QUANTITY 
IIYTO MARGIN 
1 1 ON-HAND 
11 ON-ORDER 
12BACK-0R0EREU 



Figure 10 ~ San^le File, Data Element Dictionary 
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Figure 12 — Sample Output, Steps 3, 4, & 5, Page 
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rtOUTiNt FOR IMPLtMEiMTING OUTPUT OF SUB-TOTALS 
♦ THI:> CUUt U3tS iNOICATUhii. 40 THKU 44 



SN20-6137 



241 I 

i£wbC 



Nb 41 



TUT2 
1 CO d CM 



10 13 

3 Ct 



jUb total array 



4 1 



)tiTlj,,j 



?96C* iNOilCATOH 42 SETS T:il P^lJ 



42 



401C 
40>^C 



4 2 



/-ADOI 
t-XS^J .^HKLVl 



ijRAM IN A MUDt T.l TAKt SUB-TOTALS 

F 



40JC 




404C 


40 


405C 


40 


40bC 




641CLR 


42 


642CLH 


40 


643CLR 





TOT2 



Sri TON 

fcXSR TOTUUT 
SUB TOTi; 
StTOF 

StTON 

EXSR TOTOUT 

SETOF 



TOT2 



44 

40 
40 
40 



AVOIDS 1ST R£C S>i.K 
OUTPUT SUBTOTALS 
tlLANK AFTER 



LH LI 

OUTPUT LAST SBTOT 



C* THE FOLLOWING SUBROUTINE SHOULD BE PLACED AFTER ALL CALC S. PROGRAM AN002 
CSR CHKLVl BEGSR 

EXSR PARAHS 

MOVE • • BLANKS 20 

MOVE BLANKS NEWL 1 20 
LVLOOP TAG 



CSR 
CSR 
CSR 
CSR 



DEFINE BLANK FIELD 
CURRENT CONTROL FIELC 



C» ISOLATE CONTENTS OF THIS RECORDS LEVEL FIELD 



CSR 
CSR 
CSR 
CSR 
CSR 
CSHN43 



1 

B 



MOVELNEWLl 
HOVE MORK19 
HOVELAIN,a 
ADD 8 
COMP £ 
GOTO LVLOOP 



C* IS IT A LEVEL BREAK 

CSR 44 NEWLl COMP OLDLl 

CSR MOVE NEWLI 

CSR ENDSR 



WORK 19 19 

NEWLI 

NEWLI 

B 



OLOLl 20 



43 



GET A BYTE 

LAST BYTE 

NO, GET ANOTHER 



4040 40 LI BREAK 



2315CSRN19 50 
3455CSR 40 



NM 



36150 



OR 1 



ADO TOT2.N T0T2,N 
Z-ADOTOT2,N NM 



♦ 45 



36250 40 3 'SUB* 

EPLACE STATEMENTS 3610 AND 3590 WITH THE FOLLOWING CARDS 
361 OO E 2 45N40 

35900 E 23 LRN45N40 



Figure 14--Modificatioiis for Subtotals 

39 



LN20-6137 

THESe CHANGtS ALLOW THE USE OF A NEW CONTROL STATEMENT THAT DEFINES 

A CALCULATION TO BE PERFORMED ON TWO DATA ELEMENTS, THE RESULT 

IS PRINTED ON EACH LINE OF THE REPORT AS ANY OTHER FIELD. 

THE DATA ELEMENT NAME 'RESULT' MUST OE GENERATED IN THE D.E.D. AS FOLLOWS 

STARTING IN COLUMN 1 RESULT000000U520^«t SULT FIELD 
THE FORMAT OF THE COMMAND IS 

COL. 1-7 'RESULT • 

COL. 8-13 NAME OF FIRST OPERAND 

COL. 14 OPERATION CODE '+','-', OR 'X' 

COL. 15-20 NAME OF SECOND OPERAND 



EXAMPLES ARE 



RESULT PERCNTXAMOUNT 
RESULT GROSS -NET 
RESULT VALUEA+VALUEB 



THE OPERANDS MUST ALSO BE AMQNG THOSE SPECIFIED IN THE 'COUNT' 
STATEMENT. 

THE RESULT FIELD WILL REQUIRE 22 PRINT POSITIONS. 

THE OPERAND 'RESULT' SHOULD NEVER BE USED IN THE 'PRINT' STATEMENT. 

THE OPERAND 'RESULT' MAY BE USED IN THE 'COUNT' STATEMENT. 

THIS CODE USES INDICATORS 34 THRU 39. 



205ICUNTROL NS 

2061 

2071 

2081 



34 



1 CR 2 CE 3 CS 



29aC 



4bbC 



34 



lAbbCSR 36 35 



2301CSRN35 
2301CSRN19 
2302CSRN19 
2303CSRN19 
2304CSftN19 
2305CSRN19 
2 306CSRN19 
2307CSR 



2741CSR 36 









a 


13 OPINAM 








14 


14 OPCODE 








15 


20 0P2NAM 






SETON 




35 1 


50 




EXSR RSLTSB 




1 


35 


'RESULT' 


LOKUPTABFLD 
GOTO NOCAL 


TABPAR 


50 


50 


FLD.F 


COMP OPINAM 




38 


50 


FLO.F 


COMP OP2NAM 




37 


50 


38 


Z-ADDNM 


DPI 


154 


50 


37 


Z-AOONM 


OPi 


154 


50 


38 


Z-ADDD 


OP I DEC 


90 


50 


37 

NOCAL 


Z-ADOD 
TAG 

GOTO XVZ 


OP2DEC 


90 



REMEMBER THIS RECD. 
CALCULATE/PRINT RSLT 



SAVE 

VALUES 

OF DATA AND 

NO. OF DECIMALS 



..continued on next page 
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...continued from nrrvions nnoc 

C* THESc SUdROUTlNEb. SHUULU iJc PLACtD AT ThL END (JF THt EXISTING 

C* jUGHUUTlNLS IN THE CALCS OF PHQvjHAM ANb02. THLY PtHFO«M THE CALCULATION 

C* SPtCIFIED IN THt 'rtESULT • CUNTHUL STATtMtNT ANU MOVES THE ANSWE^< TO 

C* THl- PWINT LINE. 

C'>'' RSLTSB UEGSH 

C* AOJU:>T DECIMALS SO ►^cSULT IS O.K. 

C hri 

CSk 

CSW 

C '>w 

C;>r.' OPCOOt {.Ut<*f> •♦• 36 *HAT IS 

C--.: OPCUUt CuMi-' •-• i7 THE OPERATION 

CoK OPCODE CuMP 'X* 38 

Cjk 

CSr^ 

C SH 

C 'jK 

k;^»< 'HESOLT' LOKllPCNT.N 36 

c *>< 

C* us THE AbOVc STATEMtNT ONLY OF THE LEVEL BREAK MOO. IS USED... 

CSK S£TnN 36 19 

CSW EXSR PARAMS 

CSR LXSK NUi^4RIC KSLT. FLO. TO PRNT LN 

CSR SETOF 3619 

CSR SETON 50 

CSR ENUSk 



CSR PWRXO BEGSK 

C» THIS ROUTINE RAISES MO' TO A POWER PLACED IN THci FItLO DECS AND 

C* PLACtS THE ANSWER IN THE FIELD FCTRIO 







/-ADDOPIDEC 


DECS 10 






tXSR 


PWRl 






OP I 


UIV 


FCTRIO 


OPl 






^-ADUOPiiDEC 


DECS 






t-XSK 


PMRIO 






OP^ 


O IV 


FCTRiO 


OP? 




OPCODt 


\.a!*p 


• ♦ • 






OPCoUt 


CUMP 


• — • 






OPCODE 


CuMP 


• X • 




Jb 


OPl 


ADO 


OP2 


RESULT 15S 


3 7 


DPI 


3UH 


OP2 


RtoOLT 


U 


OPl 


MUL T 


O^i' 


Rt.SULT 




RESULT 


MOLT 


inoouo 


NM 






Z — AiJi 


ji 


N 




•RESULT' 


LOKllPCNT.N 




3b 


NM 


ADD 


TOT .N 


TOT.N 


i6 42 


NM 


ADD 


TOT2.N 


T0T2,N 



CSK 




Z-ADDl 


FCTRIO 


CSR 


AGNIO 


TAG 




CSR 


DECS 


SUB 1 


DECS 


CSRN36 


FCTRIQ 


MULT 10 


FCTRIO 


CSRN36 




OOTO AGNIO 




CSR 




ENDSR 





3636 



♦ THIS tNTRY MUST BE MADE IN THE DATA ELEMENT DICTIONARY 
tciSOLT0O0000U520RESULT FIELD 
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♦ THE FOLLOWING PROGRAM CHANGES TO THE PRINT PROGR AM-ANB02- 
» CAN REDUCE CORE REQUIREMENTS AT THE COST OF AOANDONOING 

♦ THE FREE-FORMAT CODING OF THE »PRINT' AND 'COUNT* STATEMENTS. 

♦ THE OPERANDS MUST BE PUNCHED IN COLS. 7 « 1 3 . I 9 , 25. . .ETC . 

•AND AWE NOT SEPARATED BY COMMAS. ALL OTHER CODING RULES APPLY. 

♦ THIS IS A OUICK-ANO-OIRTY WAY TO SAVE SOME CORE. 



«4>*«***HEPLACE STATEMENTS 2 10 (aZO *230 .a^O WITH THE FOLLOWING 



210ICONTROL 


NS 


01 


1 CP 


2 CR 


3 CI 






22 01 












7 


96 FLD 


2301 


NS 


02 


1 CC 


2 CO 


3 CU 






2401 












7 


66 CNT 



REPLACE 410.2010 

410C 
2010CSR I 



Z-ADDl 

ADD COUNT 



F 
COUNT 



20 
20 



INITIALIZE INDEX 



***««* REMOVE STATEMENTS 140.380. AND 710 THRU 1280 INCLUSIVE 



Figure 16--Modifications to Reduce Program size 
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